home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / IM_3 .adf / Exec / piarc.LZH / setframe.rexx < prev    next >
OS/2 REXX Batch file  |  1992-08-20  |  457b  |  21 lines
  1. /* setframe.rexx */
  2.  
  3. address 'IM_Port';
  4.  
  5. numberval = getclip(sfctarget);
  6. if numberval = '' then numberval = 0;
  7. options results;
  8. 'asknumber "Start where on the tape?","'||numberval||'"'
  9. numberval = result;
  10. options;
  11. call setclip(sfctarget,numberval);
  12.  
  13. incrval = getclip(sfcincr);
  14. if incrval = '' then incrval = 1;
  15. options results;
  16. 'asknumber "Record frames how many times?","'||incrval||'"'
  17. incrval = result;
  18. options;
  19. call setclip(sfcincr,incrval);
  20.  
  21. 'finish';